#!usr/bin/env perl

use strict;
use warnings;

open( FILE, "<CADX3.f90" ); 

my @LINES = <FILE>; 

open( OUTFILE, ">CADX3.f90.new" ); 

foreach my $LINE ( @LINES ) { 
    if ( $LINE =~ m/^!/ ) {
	print "$LINE\n";
    } else {
	print "NOT: $LINE\n";
	print OUTFILE $LINE;
    }
} 

close( OUTFILE ); 
close( FILE );

